home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / mui / MCC_SpeedBar.lha / MCC_SpeedBar / Install < prev    next >
Text File  |  2002-06-13  |  2KB  |  65 lines
  1. ; $VER: SpeedBar_Install 14.4 (3.6.2002)
  2.  
  3. (procedure P_SetMessages
  4.  
  5.     (if (= "italiano" @language)
  6.         (
  7.             (set #AskMCCsDirPromptMsg           "Scegli la directory dove installare le classi MUI")
  8.             (set #AskMCCsDirHelpMsg             "Nella directory che sceglierai, verranno copiate le classi MUI.")
  9.             (set #CopyingMCCsMsg                "Sto copiando le classi MUI...")
  10.         )
  11.         (
  12.             (set #AskMCCsDirPromptMsg           "Select the drawer where you want to copy the MUI classes")
  13.             (set #AskMCCsDirHelpMsg             "In the drawer you supply here, there will be installed the MUI classes.")
  14.             (set #CopyingMCCsMsg                "Copying or Updating MUI classes")
  15.         )
  16.     )
  17. )
  18.  
  19. (procedure P_AskMCCsDir
  20.     (set #MCC-dir
  21.         (askdir
  22.             (prompt #AskMCCsDirPromptMsg)
  23.             (help #AskMCCsDirHelpMsg)
  24.             (default @default-dest)
  25.         )
  26.     )
  27. )
  28.  
  29. (procedure P_CopyMCCs
  30.     (working #CopyingMCCsMsg)
  31.     (set #localMCCSDir (tackon #source-dir "MUI/"))
  32.     (foreach #localMCCsDir "#?"
  33.         (copylib
  34.             (source (tackon #localMCCsDir @each-name))
  35.             (dest @default-dest)
  36.         )
  37.     )
  38. )
  39.  
  40. (procedure P_CopyCatalogs
  41.     (set #catSourceDir (tackon #source-dir (tackon "Catalogs" @language)))
  42.     (set #catDestDir (tackon "Locale:" (tackon "Catalogs" @language)))
  43.     (if (= (and (= (exists (#catSourceDir)) 2) (= (exists (#catDestDir)) 2)) 1)
  44.         (foreach #catSourceDir "#?"
  45.             (copylib
  46.                 (source (tackon #catSourceDir @each-name))
  47.                 (dest #catDestDir)
  48.             )
  49.         )
  50.     )
  51. )
  52.  
  53. (set @default-dest "MUI:LIBS/MUI/")
  54. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))
  55.  
  56. (P_SetMessages)
  57.  
  58. (complete 0)
  59. (P_AskMCCsDir)
  60. (set @default-dest #MCC-dir)
  61. (P_CopyMCCs)
  62. (complete 80)
  63. (P_CopyCatalogs)
  64. (complete 100)
  65.